home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / HIDESHOW.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-05  |  477b  |  34 lines
  1. {-- This program shows how a image can be moved around behind }
  2. {-- another image(s).}
  3.  
  4. Uses
  5.     TEGLIntr,
  6.     TEGLUnit,
  7.     TEGLMenu,
  8.     TEGLMain;
  9.  
  10. VAR fs : ImageStkPtr;
  11.  
  12.  
  13.  
  14. BEGIN
  15.  
  16.   EasyTEGL;
  17.   EasyOut;
  18.  
  19.  
  20.   PushImage(1,1,100,100);
  21.   ShadowBox(1,1,100,100);
  22.   fs := StackPtr;
  23.  
  24.   PushImage(50,50,150,150);
  25.   ShadowBox(50,50,150,150);
  26.  
  27.   WHILE Mouse_Buttons = 0 DO;
  28.  
  29.   HideImage(fs);
  30.   ShowImage(fs,fs^.x+100,fs^.y+100);
  31.  
  32.   TEGLSupervisor;
  33. END.
  34.